home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
cuj9204.zip
/
1004107B
< prev
next >
Wrap
Text File
|
1992-06-02
|
228b
|
17 lines
Listing 4
*******
DCL 1 RECIN,
2 NAME CHAR(30),
2 ADDRESS CHAR(20),
2 CITY CHAR(15),
2 STATE CHAR(2),
2 ZIP CHAR(5);
...
READ FILE (FILIN) INTO (INN);
STRING(RECIN) = INN;
...